home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SWAG / SWAGA_C / COMM.SWG / 0039_Accessing The Phone.pas < prev    next >
Pascal/Delphi Source File  |  1994-01-27  |  1KB  |  45 lines
  1. {
  2. From: MIGUEL MARTINEZ
  3. Subj: Accessing the phone
  4. ---------------------------------------------------------------------------
  5.  ▒ I am a novice programmer and I am writing an address book type program
  6.  ▒ in TP 6.0. How can I send the phone a number to be dialed? Thanx.
  7.  
  8. Try this routines:
  9. }
  10.  
  11. USES CRT;
  12.  
  13. Procedure DialNumber(Number:String);
  14. Var ComPort:Text;
  15.     ComName:String;
  16. Begin
  17.   ComName:='COM2';   (* Assuming your modem is located there *)
  18.   Assign(ComPort,ComName);
  19.   ReWrite(ComPort);
  20.   Writeln(ComPort,'ATDT'+Number);
  21.   Close(ComPort);
  22. End;
  23.  
  24. Procedure Hangup;
  25. Var ComPort:Text;
  26.     ComName:String;
  27. Begin
  28.   ComName:='COM2';   (* Assuming your modem is located there *)
  29.   Assign(ComPort,ComName);
  30.   ReWrite(ComPort);
  31.   Writeln(ComPort,'ATH0M1');
  32.   Close(ComPort);
  33. End;
  34.  
  35. {An example of how to use this routines, is this fragment of code:}
  36. BEGIN
  37.    DialNumber('345554323');
  38.    Repeat Until Keypressed;
  39.    Hangup;
  40. END.
  41.  
  42. If you don't hang up, guess... You'll get a funny noise if you don't
  43. connect. :)
  44.  
  45.